home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / ear / fraphix1.lha / FraphiX.LHA / FraphiX / rexx / QuickBack.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-23  |  559b  |  30 lines
  1. /* Questo script ARexx serve semplicemete per tornare in Fraphix*/
  2. /* $VER1.0 */
  3.  
  4. if~show("L","rexxsupport.library") then do
  5.    if addlib('rexxsupport.library',0,-30,0) then
  6.       say "Rexxsupport.library caricata"
  7.    else do
  8.       say "Rexxsupport.library non trovata"
  9.       exit 10
  10.    end
  11. end
  12.  
  13. LF = x2c("a")
  14.  
  15. say "Invio messaggio: CONTINUA"||LF||"Attesa risposta..."
  16. call delay 50
  17.  
  18. address "FRAPHIX"
  19. options results
  20. QUIT
  21.  
  22. if (rc=0) then
  23.       say lf||"Risposta Ricevuta."
  24.      else do
  25.       say lf||"Errore "||rc||lf||result
  26.       end
  27.      
  28.  
  29. call delay 300
  30.